﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<card title="使用魔法卷轴" ontimer="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">
<timer value="10"/>
<p>

<%
wpid=request("wpid")
pid=request("pid")
ids=myid
%>
<%

set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select "&wpid&" from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,1
if rs(""&wpid&"")<1 then
msg="您没有该物品！快去<a href='bang.asp?cc="&cc&"&amp;ve="&ve&"'>魔导师</a>那里买一点吧"
else
set rs8=Server.CreateObject("ADODB.Recordset")
strsQL="select jy,tl,jj,xx,sd from sx where cstr(ids)='"&myid& "'"
rs8.open strsQL,liao,1,1
myjy=rs8("jy")
mytl=rs8("tl")
myxx=rs8("xx")
 rs8.Close
	Set rs8=Nothing
if wpid="mm1" then
sql="update sx set jj=2 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了圣盾术,现在拥有2回合的免疫任何攻击的结界了.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm2" then
sql="update sx set sd=3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了烈火术,现在拥有3回合的双倍攻击魔法能力了.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm3" then
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了瞬移术,请快<a href='shunyi.asp?cc="&cc&"&amp;ve="&ve&"&amp;pid="&pid&"'>点击这里</a>退出战场.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm4" then
sql="update sx set xx=6 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了刺杀术,现在拥有6回合的双倍攻击魔法能力了.<br/>您的体力为"&mytl&"<br/>"
END IF
end if
Response.Write ""&msg&"正在返回！<br/>=========<br/>"
 rs.Close
	Set rs=Nothing
     
      
%>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>

<%qingtian.shuchu%>

